home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wantan1a / form49.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-14  |  24.5 KB  |  918 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form Form49 
  4.    BackColor       =   &H00808080&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "ErrorR's Macro Shop      By: |2eV"
  7.    ClientHeight    =   4485
  8.    ClientLeft      =   1185
  9.    ClientTop       =   2085
  10.    ClientWidth     =   6720
  11.    BeginProperty Font 
  12.       Name            =   "Comic Sans MS"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "Form49.frx":0000
  21.    LinkTopic       =   "Form49"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    PaletteMode     =   1  'UseZOrder
  25.    ScaleHeight     =   4485
  26.    ScaleWidth      =   6720
  27.    Begin VB.Frame Frame4 
  28.       BackColor       =   &H80000008&
  29.       BorderStyle     =   0  'None
  30.       Caption         =   "Frame4"
  31.       Height          =   1815
  32.       Left            =   5400
  33.       TabIndex        =   9
  34.       Top             =   2520
  35.       Width           =   1215
  36.       Begin VB.ListBox List5 
  37.          BackColor       =   &H80000007&
  38.          ForeColor       =   &H000000FF&
  39.          Height          =   1500
  40.          ItemData        =   "Form49.frx":1272
  41.          Left            =   120
  42.          List            =   "Form49.frx":12B8
  43.          MouseIcon       =   "Form49.frx":135B
  44.          MousePointer    =   99  'Custom
  45.          TabIndex        =   10
  46.          Top             =   120
  47.          Width           =   975
  48.       End
  49.    End
  50.    Begin VB.Frame Frame3 
  51.       BackColor       =   &H80000012&
  52.       BorderStyle     =   0  'None
  53.       Caption         =   "Frame3"
  54.       Height          =   615
  55.       Left            =   5400
  56.       TabIndex        =   7
  57.       Top             =   1680
  58.       Width           =   1215
  59.       Begin VB.ListBox List4 
  60.          BackColor       =   &H80000006&
  61.          ForeColor       =   &H000000FF&
  62.          Height          =   300
  63.          ItemData        =   "Form49.frx":14AD
  64.          Left            =   120
  65.          List            =   "Form49.frx":14CF
  66.          MouseIcon       =   "Form49.frx":1519
  67.          MousePointer    =   99  'Custom
  68.          TabIndex        =   8
  69.          Top             =   120
  70.          Width           =   975
  71.       End
  72.    End
  73.    Begin VB.Frame Frame2 
  74.       BackColor       =   &H80000008&
  75.       BorderStyle     =   0  'None
  76.       Caption         =   "Frame2"
  77.       Height          =   615
  78.       Left            =   5400
  79.       TabIndex        =   5
  80.       Top             =   840
  81.       Width           =   1215
  82.       Begin VB.ListBox List3 
  83.          BackColor       =   &H80000008&
  84.          ForeColor       =   &H000000FF&
  85.          Height          =   300
  86.          ItemData        =   "Form49.frx":166B
  87.          Left            =   120
  88.          List            =   "Form49.frx":168D
  89.          MouseIcon       =   "Form49.frx":16D7
  90.          MousePointer    =   99  'Custom
  91.          TabIndex        =   6
  92.          Top             =   120
  93.          Width           =   975
  94.       End
  95.    End
  96.    Begin VB.Frame Frame1 
  97.       BackColor       =   &H80000009&
  98.       BorderStyle     =   0  'None
  99.       Height          =   495
  100.       Left            =   5400
  101.       TabIndex        =   3
  102.       Top             =   120
  103.       Width           =   1215
  104.       Begin VB.CommandButton Command1 
  105.          BackColor       =   &H8000000E&
  106.          Caption         =   "Send"
  107.          Height          =   255
  108.          Left            =   120
  109.          MouseIcon       =   "Form49.frx":1829
  110.          MousePointer    =   99  'Custom
  111.          Style           =   1  'Graphical
  112.          TabIndex        =   4
  113.          Top             =   120
  114.          Width           =   975
  115.       End
  116.    End
  117.    Begin VB.TextBox Text1 
  118.       BackColor       =   &H80000014&
  119.       BeginProperty Font 
  120.          Name            =   "Arial"
  121.          Size            =   8.25
  122.          Charset         =   0
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       Height          =   3255
  129.       Left            =   120
  130.       MultiLine       =   -1  'True
  131.       ScrollBars      =   3  'Both
  132.       TabIndex        =   2
  133.       Top             =   1080
  134.       Width           =   5175
  135.    End
  136.    Begin MSComDlg.CommonDialog CommonDialog1 
  137.       Left            =   5160
  138.       Top             =   4560
  139.       _ExtentX        =   847
  140.       _ExtentY        =   847
  141.       _Version        =   393216
  142.    End
  143.    Begin VB.ListBox List2 
  144.       BackColor       =   &H00FFFFFF&
  145.       Columns         =   6
  146.       BeginProperty Font 
  147.          Name            =   "Arial"
  148.          Size            =   8.25
  149.          Charset         =   0
  150.          Weight          =   400
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       ForeColor       =   &H00000000&
  156.       Height          =   480
  157.       ItemData        =   "Form49.frx":197B
  158.       Left            =   120
  159.       List            =   "Form49.frx":197D
  160.       MouseIcon       =   "Form49.frx":197F
  161.       MousePointer    =   99  'Custom
  162.       TabIndex        =   1
  163.       Top             =   600
  164.       Width           =   5175
  165.    End
  166.    Begin VB.ListBox List1 
  167.       BackColor       =   &H00FFFFFF&
  168.       Columns         =   87
  169.       BeginProperty Font 
  170.          Name            =   "Arial"
  171.          Size            =   8.25
  172.          Charset         =   0
  173.          Weight          =   400
  174.          Underline       =   0   'False
  175.          Italic          =   0   'False
  176.          Strikethrough   =   0   'False
  177.       EndProperty
  178.       ForeColor       =   &H00000000&
  179.       Height          =   480
  180.       ItemData        =   "Form49.frx":1AD1
  181.       Left            =   120
  182.       List            =   "Form49.frx":1AD3
  183.       MouseIcon       =   "Form49.frx":1AD5
  184.       MousePointer    =   99  'Custom
  185.       MultiSelect     =   1  'Simple
  186.       TabIndex        =   0
  187.       Top             =   120
  188.       Width           =   5175
  189.    End
  190.    Begin VB.Label Label1 
  191.       BackStyle       =   0  'Transparent
  192.       Caption         =   "Fore Color:"
  193.       Height          =   255
  194.       Left            =   5520
  195.       MouseIcon       =   "Form49.frx":1C27
  196.       MousePointer    =   99  'Custom
  197.       TabIndex        =   16
  198.       Top             =   600
  199.       Width           =   975
  200.    End
  201.    Begin VB.Label Label6 
  202.       BackColor       =   &H00404040&
  203.       Height          =   255
  204.       Left            =   5400
  205.       TabIndex        =   15
  206.       Top             =   600
  207.       Width           =   1215
  208.    End
  209.    Begin VB.Label Label2 
  210.       BackStyle       =   0  'Transparent
  211.       Caption         =   "Back Color:"
  212.       Height          =   255
  213.       Left            =   5520
  214.       MouseIcon       =   "Form49.frx":1F31
  215.       MousePointer    =   99  'Custom
  216.       TabIndex        =   14
  217.       Top             =   1440
  218.       Width           =   975
  219.    End
  220.    Begin VB.Label Label5 
  221.       BackColor       =   &H00404040&
  222.       Height          =   255
  223.       Left            =   5400
  224.       TabIndex        =   13
  225.       Top             =   1440
  226.       Width           =   1215
  227.    End
  228.    Begin VB.Label Label3 
  229.       BackStyle       =   0  'Transparent
  230.       Caption         =   "HTML: "
  231.       Height          =   255
  232.       Left            =   5520
  233.       MouseIcon       =   "Form49.frx":223B
  234.       MousePointer    =   99  'Custom
  235.       TabIndex        =   12
  236.       Top             =   2280
  237.       Width           =   1095
  238.    End
  239.    Begin VB.Label Label4 
  240.       BackColor       =   &H00404040&
  241.       Height          =   255
  242.       Left            =   5400
  243.       TabIndex        =   11
  244.       Top             =   2280
  245.       Width           =   1215
  246.    End
  247.    Begin VB.Line Line8 
  248.       BorderColor     =   &H80000003&
  249.       BorderWidth     =   8
  250.       X1              =   5400
  251.       X2              =   6600
  252.       Y1              =   120
  253.       Y2              =   120
  254.    End
  255.    Begin VB.Line Line7 
  256.       BorderColor     =   &H80000003&
  257.       BorderWidth     =   8
  258.       X1              =   6600
  259.       X2              =   6600
  260.       Y1              =   120
  261.       Y2              =   4320
  262.    End
  263.    Begin VB.Line Line6 
  264.       BorderColor     =   &H80000003&
  265.       BorderWidth     =   8
  266.       X1              =   5400
  267.       X2              =   6600
  268.       Y1              =   4320
  269.       Y2              =   4320
  270.    End
  271.    Begin VB.Line Line5 
  272.       BorderColor     =   &H80000003&
  273.       BorderWidth     =   7
  274.       X1              =   5400
  275.       X2              =   5400
  276.       Y1              =   120
  277.       Y2              =   4320
  278.    End
  279.    Begin VB.Menu blah 
  280.       Caption         =   "File"
  281.       Index           =   1
  282.       Begin VB.Menu eeekd 
  283.          Caption         =   "Save"
  284.       End
  285.       Begin VB.Menu diedie 
  286.          Caption         =   "Load"
  287.       End
  288.       Begin VB.Menu Diieff 
  289.          Caption         =   "Print"
  290.       End
  291.       Begin VB.Menu plaent1 
  292.          Caption         =   "Mini Mize"
  293.       End
  294.       Begin VB.Menu hehehyoudier 
  295.          Caption         =   "Close"
  296.       End
  297.    End
  298.    Begin VB.Menu blah 
  299.       Caption         =   "Macro Shit"
  300.       Index           =   2
  301.       Begin VB.Menu darkdark 
  302.          Caption         =   "Darken Macro"
  303.       End
  304.       Begin VB.Menu here334 
  305.          Caption         =   "Ghost Macro"
  306.       End
  307.       Begin VB.Menu lgithlgittd 
  308.          Caption         =   "Lighten Macro"
  309.       End
  310.       Begin VB.Menu Crack1 
  311.          Caption         =   "Font Converter"
  312.       End
  313.    End
  314.    Begin VB.Menu blahsddr 
  315.       Caption         =   "Mail Macro"
  316.    End
  317. Attribute VB_Name = "Form49"
  318. Attribute VB_GlobalNameSpace = False
  319. Attribute VB_Creatable = False
  320. Attribute VB_PredeclaredId = True
  321. Attribute VB_Exposed = False
  322. Private Sub blahsddr_Click()
  323. 'Form49.Hide
  324. Form1.Show
  325. Form1.Text3 = Form49.Text1
  326. End Sub
  327. Private Sub Command1_Click()
  328. ErrorRsenD ("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">ni<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Scrolling Ascii")
  329. TimeOut (0.7)
  330. Call MacroDraw(Text1)
  331. TimeOut (1.8)
  332. ErrorRsenD ("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">ni<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Macro Done")
  333. End Sub
  334. Private Sub Crack1_Click()
  335. frmMain.Show
  336. End Sub
  337. Private Sub darkdark_Click()
  338. Call MacroDarken(Text1)
  339. '    For i = 1 To Len(Text1)
  340. 'X$ = Mid(Text1, i, 1)
  341. '    If X$ = ":" Then Let X$ = ";"
  342. 'Final$ = Final$ & X$
  343. '    Next i
  344. '          Final$ = Text1
  345. End Sub
  346. Private Sub diedie_Click()
  347. With CommonDialog1
  348.         .DialogTitle = "Open"
  349.         .CancelError = False
  350.         .Filter = "All Files (*.*)|*.*"
  351.         .ShowOpen
  352.         If Len(.FileName) = 0 Then
  353.             Exit Sub
  354.         End If
  355.         sFile = .FileName
  356.     End With
  357. LoadText Text1, "" + sFile + ""
  358. End Sub
  359. Private Sub eeekd_Click()
  360. 'Call SaveText(Text1, "C:\Windows")
  361. 'Call Save_Text(Text1, "c:\WINDOWS\ReBi.txt")
  362. 'Dim ReV As Long
  363. '    On Error Resume Next
  364. 'CommonDialog1.Text1 = Arial
  365.         With CommonDialog1
  366.             .DialogTitle = "Save"
  367.             .CancelError = False
  368.             .Filter = "All Files (*.*)|*.*"
  369.             .ShowSave
  370.             If Len(.FileName) = 0 Then
  371.                 Exit Sub
  372.             End If
  373.             sFile = .FileName
  374.         End With
  375. SaveText Text1, "" + sFile + ".txt"
  376. 'CommonDialog1.DialogTitle = "Save list"
  377. 'CommonDialog1.ToPage = 1
  378. 'CommonDialog1.FromPage = 1
  379. 'CommonDialog1.Filter = "All files (*.*)|*.*|"
  380. 'CommonDialog1.FilterIndex = 1
  381. 'CommonDialog1.Action = 2
  382. 'Call SaveText(CommonDialog1.FileName.Text1, "C:\Windows")
  383. 'Call savelistman2(CommonDialog1.FileName.text1, Combo1)
  384. 'Text1 = List1.ListCount
  385. '    Open Path$ For Output As #1
  386. '    For ReV& = Text1 To go
  387. '      Print #1, Text1
  388. '           Next ReV&
  389. '    Close #1
  390. 'CommonDialog1.FontName = Arial
  391. 'CommonDialog1.FileName = "*.*"
  392. 'CommonDialog1.DialogTitle = "Save text"
  393. 'CommonDialog1.ToPage = 1
  394. 'CommonDialog1.FromPage = 1
  395. 'CommonDialog1.Filter = "All files (*.*)|*.*|"
  396. 'CommonDialog1.FilterIndex = 1
  397. 'CommonDialog1.Action = 2
  398. 'Call savelistman2(CommonDialog1.FileName, Text1)
  399. 'Call savelistman2(CommonDialog1.FileName, Text1)
  400. End Sub
  401. Private Sub Form_Load()
  402. 'visit our domain www.errorrdomain.com
  403. 'Call FormShade_Red(Form49)
  404. Call FormShade_Grey(Form49)
  405. 'FormShade_Red
  406. StayOnTop Me
  407. :'ErrorR Macro Shop':
  408. ErrorRsenD ("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">ni<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>ErrorR Macro Shop")
  409. TimeOut 0.1
  410. ErrorRsenD ("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">ni<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Author: |2eV")
  411. List2.AddItem ".
  412. List2.AddItem "
  413. List2.AddItem "
  414. List2.AddItem "
  415. List2.AddItem "
  416. List2.AddItem "(
  417. List2.AddItem "..
  418. ::{-(
  419. List2.AddItem ".
  420. List2.AddItem "
  421. List2.AddItem "[
  422. =--- ^v^ "
  423. List2.AddItem "
  424. List2.AddItem "
  425. List2.AddItem "
  426. List2.AddItem "
  427. List2.AddItem ".
  428. List2.AddItem "
  429. List2.AddItem "
  430. List2.AddItem "
  431. List2.AddItem "-^v
  432. List2.AddItem "
  433. -[-(`v^- "
  434. List2.AddItem "
  435. List2.AddItem "
  436. List2.AddItem "
  437. List2.AddItem "(
  438. ..//> "
  439. List2.AddItem "
  440. List2.AddItem "
  441. List2.AddItem "
  442. List2.AddItem "
  443. List2.AddItem "
  444. List2.AddItem " v
  445. List2.AddItem "
  446. List2.AddItem "
  447. List2.AddItem "
  448. List2.AddItem "
  449. List2.AddItem "[|]"
  450. List2.AddItem "[
  451. List2.AddItem "]["
  452. List2.AddItem "|
  453. List2.AddItem "[
  454. List2.AddItem "]
  455. List2.AddItem "
  456. List2.AddItem "
  457. List2.AddItem "]
  458. List2.AddItem "[
  459. List2.AddItem "
  460. List2.AddItem "]
  461. List2.AddItem "
  462. List2.AddItem "
  463. List2.AddItem "
  464. List2.AddItem "
  465. List2.AddItem "
  466. List2.AddItem "(`
  467. List2.AddItem ".
  468. List2.AddItem ".
  469. List2.AddItem ".
  470. List2.AddItem ":
  471. List2.AddItem "...
  472. List2.AddItem ":
  473. ... "
  474. List2.AddItem ".
  475. List2.AddItem "`
  476. List2.AddItem "..
  477. List2.AddItem "`
  478. List2.AddItem "
  479. List2.AddItem ".
  480. List2.AddItem "
  481. List2.AddItem "
  482. List2.AddItem ".
  483. List2.AddItem "
  484. List2.AddItem "
  485. List2.AddItem "_/
  486. List2.AddItem "
  487. List2.AddItem "
  488. List2.AddItem "(]
  489. List2.AddItem "
  490. List2.AddItem "-
  491. List2.AddItem "
  492. List2.AddItem ".
  493. List2.AddItem "
  494. List2.AddItem "[{-._.-
  495. List2.AddItem "
  496. -._.-}]"
  497. List2.AddItem ".
  498. List2.AddItem "
  499. List2.AddItem "(
  500. List2.AddItem ")
  501. List2.AddItem "
  502. ../)"
  503. List2.AddItem "
  504. List2.AddItem "...
  505. List2.AddItem "::
  506. List2.AddItem "(
  507. List2.AddItem "
  508. List2.AddItem "
  509. List2.AddItem "
  510. List2.AddItem "..
  511. List2.AddItem "
  512. List2.AddItem "
  513. List2.AddItem "
  514. List2.AddItem "
  515. List2.AddItem "
  516. List2.AddItem "^v^"
  517. List2.AddItem "
  518. List2.AddItem "o
  519. List2.AddItem ".-
  520. List2.AddItem "x
  521. List2.AddItem "
  522. List2.AddItem "
  523. List2.AddItem "
  524. List2.AddItem ". 
  525. List2.AddItem "
  526. List2.AddItem "
  527. List2.AddItem "/`
  528.  |> "
  529. List2.AddItem "
  530. List2.AddItem "(' 
  531. List2.AddItem "`
  532. List2.AddItem "
  533. List2.AddItem "
  534. List2.AddItem "
  535. List2.AddItem "
  536. List2.AddItem "
  537. List2.AddItem "
  538. List2.AddItem "])
  539. List2.AddItem "(.
  540. List2.AddItem "
  541. List2.AddItem "
  542. List2.AddItem "
  543. List2.AddItem "
  544. List2.AddItem "
  545. List2.AddItem "
  546. List2.AddItem "(
  547. List2.AddItem "((
  548. List2.AddItem "
  549. List2.AddItem "
  550. List2.AddItem "
  551. List2.AddItem "
  552. List2.AddItem "
  553. List2.AddItem "FeaR"
  554. List2.AddItem ",.
  555. List2.AddItem ""
  556. List2.AddItem "
  557. List2.AddItem ""
  558. List2.AddItem "
  559. List2.AddItem ""
  560. List2.AddItem "
  561. List2.AddItem ""
  562. List2.AddItem "
  563. List2.AddItem ""
  564. List2.AddItem "`
  565. List2.AddItem ""
  566. List2.AddItem ",.
  567. List2.AddItem ""
  568. List2.AddItem ".
  569. List2.AddItem ""
  570. List2.AddItem "
  571. List2.AddItem ""
  572. List2.AddItem "
  573. List2.AddItem ""
  574. List2.AddItem "
  575. List2.AddItem ""
  576. List2.AddItem "
  577. List2.AddItem ""
  578. List2.AddItem "
  579. List2.AddItem ""
  580. List2.AddItem "
  581. List2.AddItem ""
  582. List2.AddItem "_
  583. List2.AddItem ""
  584. List2.AddItem ""
  585. List2.AddItem "
  586. List2.AddItem ""
  587. List2.AddItem "
  588. List2.AddItem ""
  589. List2.AddItem "_.-~
  590. ~-._"
  591. List2.AddItem ""
  592. List2.AddItem "
  593. List2.AddItem ""
  594. List2.AddItem "
  595. List2.AddItem ""
  596. List2.AddItem "
  597. List2.AddItem ""
  598. List2.AddItem "
  599. List2.AddItem ""
  600. List2.AddItem "
  601. List2.AddItem ""
  602. List2.AddItem "
  603. List2.AddItem ""
  604. List2.AddItem "
  605. List2.AddItem ""
  606. List2.AddItem "
  607. List2.AddItem ""
  608. List2.AddItem "
  609. List2.AddItem ""
  610. List2.AddItem "`
  611. List2.AddItem ""
  612. List2.AddItem "
  613. List2.AddItem ""
  614. List2.AddItem "
  615. List2.AddItem ""
  616. List2.AddItem "
  617. List2.AddItem ""
  618. List2.AddItem "
  619. List2.AddItem ""
  620. List2.AddItem "`
  621. List2.AddItem ""
  622. List2.AddItem "
  623. List2.AddItem ""
  624. List2.AddItem "
  625. List2.AddItem ""
  626. List2.AddItem ",-
  627. List2.AddItem ""
  628. List2.AddItem "
  629. List2.AddItem ""
  630. List2.AddItem "`
  631. List2.AddItem ""
  632. List2.AddItem "
  633. List2.AddItem ""
  634. List2.AddItem ".
  635. List2.AddItem ""
  636. List2.AddItem "'
  637. List2.AddItem ""
  638. List2.AddItem "~
  639. List2.AddItem ""
  640. List2.AddItem "
  641. List2.AddItem ""
  642. List2.AddItem "
  643. List2.AddItem ""
  644. List2.AddItem "
  645. List2.AddItem ""
  646. List2.AddItem "
  647. List2.AddItem "
  648. List2.AddItem "___"
  649. List1.AddItem "A"
  650. List1.AddItem "B"
  651. List1.AddItem "C"
  652. List1.AddItem "D"
  653. List1.AddItem "E"
  654. List1.AddItem "F"
  655. List1.AddItem "G"
  656. List1.AddItem "H"
  657. List1.AddItem "I"
  658. List1.AddItem "J"
  659. List1.AddItem "K"
  660. List1.AddItem "L"
  661. List1.AddItem "M"
  662. List1.AddItem "N"
  663. List1.AddItem "O"
  664. List1.AddItem "P"
  665. List1.AddItem "Q"
  666. List1.AddItem "R"
  667. List1.AddItem "S"
  668. List1.AddItem "T"
  669. List1.AddItem "U"
  670. List1.AddItem "W"
  671. List1.AddItem "X"
  672. List1.AddItem "Y"
  673. List1.AddItem "Z"
  674. List1.AddItem "a"
  675. List1.AddItem "b"
  676. List1.AddItem "c"
  677. List1.AddItem "d"
  678. List1.AddItem "e"
  679. List1.AddItem "f"
  680. List1.AddItem "g"
  681. List1.AddItem "h"
  682. List1.AddItem "i"
  683. List1.AddItem "j"
  684. List1.AddItem "k"
  685. List1.AddItem "l"
  686. List1.AddItem "m"
  687. List1.AddItem "n"
  688. List1.AddItem "o"
  689. List1.AddItem "p"
  690. List1.AddItem "q"
  691. List1.AddItem "r"
  692. List1.AddItem "s"
  693. List1.AddItem "t"
  694. List1.AddItem "u"
  695. List1.AddItem "v"
  696. List1.AddItem "w"
  697. List1.AddItem "x"
  698. List1.AddItem "y"
  699. List1.AddItem "z"
  700. List1.AddItem "1"
  701. List1.AddItem "2"
  702. List1.AddItem "3"
  703. List1.AddItem "4"
  704. List1.AddItem "5"
  705. List1.AddItem "6"
  706. List1.AddItem "7"
  707. List1.AddItem "8"
  708. List1.AddItem "9"
  709. List1.AddItem "0"
  710. List1.AddItem "~"
  711. List1.AddItem "`"
  712. List1.AddItem "!"
  713. List1.AddItem "@"
  714. List1.AddItem "#"
  715. List1.AddItem "$"
  716. List1.AddItem "%"
  717. List1.AddItem "^"
  718. List1.AddItem "&"
  719. List1.AddItem "*"
  720. List1.AddItem "("
  721. List1.AddItem ")"
  722. List1.AddItem "-"
  723. List1.AddItem "="
  724. List1.AddItem "+"
  725. List1.AddItem "{"
  726. List1.AddItem "}"
  727. List1.AddItem "["
  728. List1.AddItem "]"
  729. List1.AddItem "|"
  730. List1.AddItem "\"
  731. List1.AddItem ":"
  732. List1.AddItem ";"
  733. List1.AddItem "/"
  734. List1.AddItem "?"
  735. List1.AddItem ","
  736. List1.AddItem "<"
  737. List1.AddItem "."
  738. List1.AddItem ">"
  739. List1.AddItem "
  740. List1.AddItem "
  741. List1.AddItem "
  742. List1.AddItem "
  743. List1.AddItem "
  744. List1.AddItem "
  745. List1.AddItem "
  746. List1.AddItem "
  747. List1.AddItem "
  748. List1.AddItem "
  749. List1.AddItem "
  750. List1.AddItem "
  751. List1.AddItem "
  752. List1.AddItem "
  753. List1.AddItem "
  754. List1.AddItem "
  755. List1.AddItem "
  756. List1.AddItem "
  757. List1.AddItem "
  758. List1.AddItem "
  759. List1.AddItem "
  760. List1.AddItem "
  761. List1.AddItem "
  762. List1.AddItem "
  763. List1.AddItem "
  764. List1.AddItem "
  765. List1.AddItem "
  766. List1.AddItem "
  767. List1.AddItem "
  768. List1.AddItem "
  769. List1.AddItem "
  770. List1.AddItem "
  771. List1.AddItem "
  772. List1.AddItem "
  773. List1.AddItem "
  774. List1.AddItem "
  775. List1.AddItem "
  776. List1.AddItem "
  777. List1.AddItem "
  778. List1.AddItem "
  779. List1.AddItem "
  780. List1.AddItem "
  781. List1.AddItem "
  782. List1.AddItem "
  783. List1.AddItem "
  784. List1.AddItem "
  785. List1.AddItem "
  786. List1.AddItem "
  787. List1.AddItem "
  788. List1.AddItem "
  789. List1.AddItem "
  790. List1.AddItem "
  791. List1.AddItem "
  792. List1.AddItem "
  793. List1.AddItem "
  794. List1.AddItem "
  795. List1.AddItem "
  796. List1.AddItem "
  797. List1.AddItem "
  798. List1.AddItem "
  799. List1.AddItem "
  800. List1.AddItem "
  801. List1.AddItem "
  802. List1.AddItem "
  803. List1.AddItem "
  804. List1.AddItem "
  805. List1.AddItem "
  806. List1.AddItem "
  807. List1.AddItem "
  808. List1.AddItem "
  809. List1.AddItem "
  810. List1.AddItem "
  811. List1.AddItem "
  812. List1.AddItem "
  813. List1.AddItem "
  814. List1.AddItem "
  815. List1.AddItem "
  816. List1.AddItem "
  817. List1.AddItem "
  818. List1.AddItem "
  819. List1.AddItem "
  820. List1.AddItem "
  821. List1.AddItem "
  822. List1.AddItem "
  823. List1.AddItem "
  824. List1.AddItem "
  825. List1.AddItem "
  826. List1.AddItem "
  827. List1.AddItem "
  828. List1.AddItem "
  829. List1.AddItem "
  830. List1.AddItem "
  831. List1.AddItem "
  832. List1.AddItem "
  833. List1.AddItem "
  834. List1.AddItem "
  835. List1.AddItem "
  836. List1.AddItem "
  837. List1.AddItem "
  838. List1.AddItem "
  839. List1.AddItem "
  840. List1.AddItem "
  841. List1.AddItem "
  842. List1.AddItem "
  843. List1.AddItem "
  844. List1.AddItem "
  845. List1.AddItem "
  846. List1.AddItem "
  847. List1.AddItem "
  848. List1.AddItem "
  849. List1.AddItem "
  850. List1.AddItem "
  851. End Sub
  852. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  853. Label1.ForeColor = &H8000000D
  854. Label2.ForeColor = &H8000000D
  855. Label3.ForeColor = &H8000000D
  856. End Sub
  857. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  858. FormMove Me
  859. End Sub
  860. Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  861. Label1.ForeColor = &H8000000D
  862. Label2.ForeColor = &H8000000D
  863. Label3.ForeColor = &H8000000D
  864. End Sub
  865. Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  866. Label1.ForeColor = &H8000000D
  867. Label2.ForeColor = &H8000000D
  868. Label3.ForeColor = &H8000000D
  869. End Sub
  870. Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  871. Label1.ForeColor = &H8000000D
  872. Label2.ForeColor = &H8000000D
  873. Label3.ForeColor = &H8000000D
  874. End Sub
  875. Private Sub hehehyoudier_Click()
  876. End Sub
  877. Private Sub here334_Click()
  878.   Call MacroFilter_Ghost(Text1)
  879.    ' MacroFilter_Ghost = MyString$
  880. End Sub
  881. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  882. Label1.ForeColor = &H8000000E
  883. End Sub
  884. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  885. Label2.ForeColor = &H8000000E
  886. End Sub
  887. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  888. Label3.ForeColor = &H8000000E
  889. End Sub
  890. Private Sub lgithlgittd_Click()
  891. Call MacroLighten(Text1)
  892. 'For i = 1 To Len(Text1)
  893. 'X$ = Mid(Macro, i, 1)
  894. '    If X$ = ";" Then Let X$ = ":"
  895. 'Final$ = Final$ & X$
  896. '    Next i
  897. '        Text1 = Final$
  898. End Sub
  899. Private Sub List1_DblClick()
  900. Text1 = Text1 + List1
  901. End Sub
  902. Private Sub List2_DblClick()
  903. Text1 = Text1 + List2
  904. End Sub
  905. Private Sub List3_Click()
  906. Text1 = Text1 + "<FONT COLOR=" + List3 + ">"
  907. End Sub
  908. Private Sub List4_Click()
  909. Text1 = Text1 + "<BODYBG COLOR=" + List4 + ">"
  910. End Sub
  911. Private Sub List5_Click()
  912. Text1 = Text1 + List5
  913. End Sub
  914. Private Sub plaent1_Click()
  915. Form49.Hide
  916. MiniMize.Show
  917. End Sub
  918.